' parms used to communicate between the connect form and ftp main form
Global ipname As String
Global userid As String
Global password As String
Global account As String
' mouse pointer modes
Global Const DEFAULT = 0
Global Const HOURGLASS = 11
' following functions allow us to read and write the vtftp.ini file
Declare Function GetINIString Lib "kernel" Alias "GetPrivateProfileString" (ByVal app As String, ByVal key As String, ByVal def As String, ByVal ret As String, ByVal retsz As Integer, ByVal fn As String) As Integer
Declare Function PutINIString Lib "kernel" Alias "WritePrivateProfileString" (ByVal app As String, ByVal key As String, ByVal arg As Any, ByVal fn As String) As Integer